;;;Convert Solids to 3Dfaces
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
(defun c:sol2face ()
  (setq solss (ssget "x" '((0 . "SOLID"))))
  (setq solen (1- (sslength solss)))
  (while (> solen -1)
    (setq curent (entget(ssname solss solen)))
    (setq as10 (trans (cdr(assoc 10 curent))(cdar curent) 1)
          as11 (trans (cdr(assoc 11 curent))(cdar curent) 1)
          as12 (trans (cdr(assoc 12 curent))(cdar curent) 1)
          as13 (trans (cdr(assoc 13 curent))(cdar curent) 1)
	dummy (cons 70 0)
    )
    (setq newent (subst (cons 0 "3DFACE")(assoc 0 curent)curent))
    (setq newent (subst dummy (assoc 13 newent) newent))
    (setq newent (subst (cons 10 as10)(assoc 10 newent) newent))
    (setq newent (subst (cons 11 as11)(assoc 11 newent) newent))
    (setq newent (subst (cons 12 as13)(assoc 12 newent) newent))
    (setq newent (subst (cons 13 as12) dummy newent))
    (setq newent (subst (cons 70 0)(assoc 210 curent)newent))
    (if (entmake (cdr newent))
      (entdel (ssname solss solen))
    )
    (setq solen (1- solen))
  )
  (princ)
)